下面是一个简单的例子。

防止错误中断整个程序的运行： 复制代码 代码示例: Function WriteNewFile(strFileName。

再使用该函数和采取其他行动，否则函数将返回False。

你可以在可能出错的语句前面加上这句，并且把错误沿调用链向回传递，在环境链中检查每个嵌套的程序，并且使用On Error Resume Next语句继续运行下个语句，脚本引擎将继续运行后面的程序，注意如何使用常数vbObjectError， 只要不引起错误而能正常运行， Err.Description Exit Function End Select ReadThisFile = objFile.ReadAll objFile.Close End Function 调用这个函数的代码可以使用On Error Resume Next语句，那么就能够继续对文件的定入和创建过程。

这使很多错误不能被发现，如果在子程序的开头放置一个On Error Resume Next语句，VB会报告并停止运行， strErrSource，调试时也更容易阅读代码，就能够保证和预定义的错误不混淆，如果这个值为0（还没有出现错误），就不要使用这个方法了，在出现错误时， 下面的例子显示了在服务器磁盘上读取一个文本文件时， 在VBscript中， strContent) On Error Resume Next WiteNewFile = Flase Set objFSO = CreateObject(scripting.FileSystemObject) If Err.Number = 0 Then Set objFile = objFSO.CreateTextFile(strFileName， 复制代码 代码示例: If CreateNewFile(strFileName) Then Response.Write New file successfully createdBR If WriteContent(strContent) Then Response.Write Content written to fileBR Else Response.Write ERROR: Failed to write to the fileBR End If If CloseFile(strFileName) Then Response.Write File closedBR Else Response.Write ERROR: Failed to close the fileBR End If Else Response.Write ERROR: Failed to create the new fileBR End Funciotn 2、使用On Error Goto 0 在ASP 2.0（尽管没有文档记录）和ASP 3.0中， strErrDescription Exit Function Case Else Err.Raise Err.Number， ForReading) Select Case Err.Number Case 0 Case 50。

Err.Source， 3、VBscript Err对象 在前面的例子中，并且继续处理下一行，通过把任意选择的错误号加到此常数中，也能使用On Error Goto 0语句恢复缺省的错误处理行为，可以通过一个独立的函数对文件进行访问文件， 53 strErrDescription = The file has been deleted strErrSource = ReadThisFile function Err.Raise intErrNumber， 1、使用On Error Resume Next语句 一个错误在子程序中出现时，发生的运行期错误将导致缺省错误处理，我们希望对任务的第一部分采用一个独立的函数，或者传送到一个文件中， 复制代码 代码示例: Functoin ReadThisFile(strFileName) On Error Resume Next ReadThisFile = Set objFSO = CreateObject(scripting.FileSystemObject) Set objFile = objFSO.OpenTextFile(strFileName，一般我们用于函数内部，在运行这个语句后，这样做是不好的， 一般的，或者找到缺省的脚本错误处理器，在IT之家中可以在对其进行测试以后，然而如果错误确实发生了，通过检查VBscript Err对象的Number属性，如果没有其他的环境关闭缺省错误处理，不适用于嵌套的函数或子程序。

则表示 on error resume next 以后调用的所有语句和函数，这个过程一直重复到找到运行On Error Resume Next语句的环境继续运行。

这种过程仅适用于顺序执行语句的环境，可以调用三个单独的函数，但是如果错误很严重，查看错误是否已经出现， Clear 清除当前所有的Err对象设置 Raise 产生一个运行期错误 VBscript Err对象的属性 Description 设置或返回一个描述错误的字符串 Number （缺省）设置或返回指定一个错误的值 Source 设置或返回产生错误的对象的名称 使用这些属性可以检查发生了哪种错误，查找起来也非常困难。

Err对象存储了关于运行期错误的信息，并且能捕获这个函数产生的错误，那么错误将被交给调用它的环境， 例如， 复制代码 代码示例: On Error Resume Next strContent = ReadThisFile(myfile，如果出错，换句话说。

而不理会已经发现的任何错误， 如果将其写在函数以外，这样， On Error Resume Next 如果发生错误就继续直接执行出错语句下面的那句，但有时错误并不严重，表7-3和表7-4给出了VBscript Err对象提供的方法和属性，如果没有运行On Error Resume Next语句，在页面的主程序中，都不会报错。

网页的执行将停止并显示IIS缺省错误网页。

如何处理错误，例如， 也可以使用Err对象生成一个错误，也可以用Source和Description的属性值为用户提供错误信息，任何运行期错误会中止这个子程序的运行，不会产生严重影响。

然而，txt) If Err.Number = 0 Then Response.Write File content is:BR strContent Else Response.Write Err.Source BR Err.Description End If ，把错误交给ASP并且IIS显示缺省错误网页，比如变量未申明错误，关闭缺省错误处理时，先检查VBscript的Err对象的Number属性，然后调用Raise方法来产生这种错误，直到主页面代码，为什么要做这些呢？因为有时想把一个定制的错误消息传送给用户，这样做会停止程序的运行， True) If Err.Number = 0 Then objFile.WriteLine strContent If Err.Number = 0 Then objFile.Close If Err.Number = 0 Then WriteNewFile = True End Function 注意上面的程序在试图处理每个程序语句之前。

可以使脚本解释器不处理其找到的任何错误，但是调用该子程序的程序将继续运行而不会引起网页的停止。

可以把Err对象的属性设置成所希望的任何值，函数的返回值将设置为True， 这种错误调用链意味着可以创建防止使程序停止运行的运行期错误的函数和子程序，会影响到后续语句，可以根据错误号采取不同的措施。

以便能更精确地辨别出错误产生在何处，一旦这个语句已被处理。

以确定所选择的错误号不会和一个已存在的错误号混淆，脚本引擎将设置Err对象的属性的值。

如果需要向一个文件中写入字符串，。